program test3(input,output);
var
    a,b : integer;
procedure x;
var
    c,d : integer;
begin

a := 3;
end;
    
begin
    x;
    writeln(a)
end. 

